﻿Partial Public Class MonthlyReportData
	Public Function CreateMonthlyReportData(BranchReport As VM_BranchReport)
		With BranchReport
			Return MonthlyReportData.CreateMonthlyReportData(Now, .PublisherCount, .PublisherBooks, .PublisherBrochures, .PublisherHours, .PublisherMagazines, .PublisherReturnVisits, .PublisherStudies, .AuxPioneerCount, .AuxPioneerBooks, .AuxPioneerBrochures, .AuxPioneerHours, .AuxPioneerMagazines, .AuxPioneerReturnVisits, .AuxPioneerStudies, .PioneerCount, .PioneerBooks, .PioneerBrochures, .PioneerHours, .PioneerMagazines, .PioneerReturnVisits, .PioneerStudies)
		End With
	End Function

	Public Sub New()

	End Sub

	Public Sub New(BranchReport As VM_BranchReport)
		With BranchReport

			Me.Month = Now
			Me.AuxPioneerBooks = .AuxPioneerBooks
			Me.AuxPioneerBrochures = .AuxPioneerBrochures
			Me.AuxPioneerCount = .AuxPioneerCount
			Me.AuxPioneerHours = .AuxPioneerHours
			Me.AuxPioneerMagazines = .AuxPioneerMagazines
			Me.AuxPioneerReturnVisits = .AuxPioneerReturnVisits
			Me.AuxPioneerStudies = .AuxPioneerStudies
			Me.PioneerBooks = .PioneerBooks
			Me.PioneerBrochures = .PioneerBrochures
			Me.PioneerCount = .PioneerCount
			Me.PioneerHours = .PioneerHours
			Me.PioneerMagazines = .PioneerMagazines
			Me.PioneerReturnVisits = .PioneerReturnVisits
			Me.PioneerStudies = .PioneerStudies
			Me.PublisherBooks = .PublisherBooks
			Me.PublisherBrochures = .PublisherBrochures
			Me.PublisherCount = .PublisherCount
			Me.PublisherHours = .PublisherHours
			Me.PublisherMagazines = .PublisherMagazines
			Me.PublisherReturnVisits = .PublisherReturnVisits
			Me.PublisherStudies = .PublisherStudies

		End With
	End Sub
End Class
